COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFINE #MIN = 1
C00005 ENDMK
C⊗;
DEFINE #MIN = 1;
DEFINE #MAX = 5;
DEFINE #NTYPE = #MAX-#MIN +1;		! 5 data types= 5 classes of records;
DEFINE #LTYPE = 100;			! number of elements for each type;
DEFINE #LMT= #NTYPE*#LTYPE;		! # of postions in symtab;

EXTERNAL RCLASS SYMBOL (STRING PNAME;RANY OBJECT);	
EXTERNAL RPTR (SYMBOL) ARRAY $YMTAB[0:#LMT];	
EXTERNAL INTEGER ARRAY $ENTRY[0:#NTYPE];	

EXTERNAL RCLASS SCALAR (REAL VALUE);
EXTERNAL RCLASS VECTOR (REAL XC,YC,ZC);
EXTERNAL RCLASS FRAME (STRING PNAME; RPTR (FRAME) DAD,SON,EBRO,YBRO; INTEGER HOWLINKED;
              REAL ARRAY XF);
EXTERNAL RCLASS ROT (REAL ARRAY XF);
EXTERNAL RCLASS TRANS(REAL ARRAY XF);
EXTERNAL RCLASS TREE(RPTR(SCALAR,VECTOR,ROT,TRANS,FRAME)DATA;INTEGER DTYPE);

! pointers to predeclared symbols;	

EXTERNAL RPTR(SYMBOL)HANDB,HANDY,INCHES,DEG,INCH,DEGREE,DEGRES;
EXTERNAL RPTR(SCALAR) S_BHAND,S_YHAND;
		! for scalars BHAND,YHAND;

EXTERNAL RPTR(SYMBOL)XHAT,YHAT,ZHAT,NILVECT;
EXTERNAL RPTR(VECTOR) V_XHAT,V_YHAT,V_ZHAT,V_NILVECT;
		! for vectors XHAT,YHAT,ZHAT,NILVECT;

EXTERNAL RPTR(SYMBOL)WORLD,BARM,YARM,BPARK,YPARK,BGRASP,POINTER;
EXTERNAL RPTR(FRAME) F_BARM,F_YARM,F_BPARK,F_YPARK,F_BGRASP,F_POINTER,F_FID;
EXTERNAL RPTR(FRAME) F_WRLD;
		! for frames STATION,BARM,YARM,BPARK,YPARK,POINTER;

EXTERNAL RPTR(SYMBOL)NILROTN;
EXTERNAL RPTR(ROT) R_NILROTN;
		! for rotation NILROTN;

EXTERNAL RPTR(SYMBOL)NILTRANS;
EXTERNAL RPTR(TRANS) T_NILTRANS;
		! for trans NILTRANS;
EXTERNAL RPTR(FRAME) F_ARM;